ggplotly(
time_series_long_joined %>%
group_by(Country_Region,Date) %>%
summarise_at(c("Confirmed", "Deaths"), sum) %>%
filter (Country_Region == "US") %>%
ggplot(aes(x = Date, y = Deaths)) +
geom_point() +
geom_line() +
ggtitle("US COVID-19 Deaths")
)
library(gganimate)
library(transformr)
library(gifski)
theme_set(theme_bw())
data_time <- time_series_long_joined %>%
group_by(Country_Region,Date) %>%
summarise_at(c("Confirmed", "Deaths"), sum) %>%
filter (Country_Region %in% c("China","Korea, South","Japan","Italy","US"))
p <- ggplot(data_time, aes(x = Date, y = Confirmed, color = Country_Region)) +
geom_point() +
geom_line() +
ggtitle("Confirmed COVID-19 Cases") +
geom_point(aes(group = seq_along(Date))) +
transition_reveal(Date)
# Some people needed to use this line instead
# animate(p,renderer = gifski_renderer(), end_pause = 15)
animate(p, end_pause = 15)
## Challenge 1 ### Print a graph (different from the one above) to a png file using 3*ppi for the height and width and display the png file in the report using the above R Markdown format.
#Convert to PNG
ppi <- 300
png("images/time_series_example_plot.png", width=3*ppi, height=3*ppi, res=ppi)
time_series_long_joined %>%
group_by(Country_Region,Date) %>%
summarise_at(c("Confirmed", "Deaths"), sum) %>%
filter (Country_Region == "Brazil") %>%
ggplot(aes(x = Date, y = Deaths)) +
geom_point() +
geom_line() #+ ggtitle("Brazil COVID-19 Deaths")
Brazil COVID-19 Deaths
time_series_long_joined_ratio <- time_series_long_joined %>%
group_by(Country_Region, Date) %>%
summarise(Total_Confirmed = sum(Confirmed), Total_Deaths = sum(Deaths)) %>%
mutate(Ratio = Total_Deaths / Total_Confirmed)
time_series_long_total_deaths <- time_series_long_joined_ratio %>%
group_by(Country_Region) %>%
summarise(Deaths = sum(Total_Deaths)) %>%
arrange(desc(Deaths)) %>%
slice(1:10)
g <- time_series_long_joined_ratio %>%
filter(Country_Region %in% c("US", "Brazil", "United Kingdom", "Italy", "Mexico", "France", "Spain", "India", "Iran", "Peru")) %>%
ggplot(aes(x = Date, y = Total_Deaths, fill = Country_Region, color = Country_Region)) +
geom_point() +
geom_line() +
ggtitle("The Top 10 Countries by Total Deaths") +
transition_reveal(Date)
animate(g,renderer = gifski_renderer(), end_pause = 15)